home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / GNU / emacs_src.lha / src / amiga / emacs-18.59 / unix.lha / unix / src / truncate.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-07-19  |  341 b   |  22 lines
  1. #include "amiga.h"
  2. #include "amigados.h"
  3.  
  4. int truncate(char *path, off_t length)
  5. {
  6.   BPTR fh = Open(path, MODE_OLDFILE);
  7.   int err;
  8.  
  9.   chkabort();
  10.   if (fh)
  11.     {
  12.       int ret = _do_truncate(fh, length);
  13.  
  14.       if (Close(fh) || ret) return ret;
  15.       err = IoErr();
  16.     }
  17.   else err = IoErr();
  18.  
  19.   errno = convert_oserr(err);
  20.   return -1;
  21. }
  22.